Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/tictac_1/form1.frm

Text File | 1998-05-05 | 18KB | 713 lines

VERSION 5.00
Begin VB.Form Form1
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   1  'Fest Einfach
   Caption         =   "Tic Tac Toe"
   ClientHeight    =   4812
   ClientLeft      =   36
   ClientTop       =   324
   ClientWidth     =   5928
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4812
   ScaleWidth      =   5928
   StartUpPosition =   2  'Bildschirmmitte
   Begin VB.Timer Timer3
      Interval        =   50
      Left            =   120
      Top             =   1080
   End
   Begin VB.Frame Frame2
      BackColor       =   &H00FFFFFF&
      Caption         =   "Player O"
      Height          =   1572
      Left            =   4080
      TabIndex        =   3
      Top             =   2640
      Width           =   1692
      Begin VB.Label Label4
         Alignment       =   2  'Zentriert
         BackColor       =   &H00FFFFFF&
         Caption         =   "0"
         BeginProperty Font
            Name            =   "Comic Sans MS"
            Size            =   36
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   1212
         Left            =   120
         TabIndex        =   5
         Top             =   240
         Width           =   1452
      End
   End
   Begin VB.Frame Frame1
      BackColor       =   &H00FFFFFF&
      Caption         =   "Player X"
      Height          =   1572
      Left            =   4080
      TabIndex        =   2
      Top             =   840
      Width           =   1692
      Begin VB.Label Label3
         Alignment       =   2  'Zentriert
         BackColor       =   &H00FFFFFF&
         Caption         =   "0"
         BeginProperty Font
            Name            =   "Comic Sans MS"
            Size            =   36
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   1212
         Left            =   120
         TabIndex        =   4
         Top             =   240
         Width           =   1452
      End
   End
   Begin VB.Timer Timer2
      Interval        =   50
      Left            =   120
      Top             =   720
   End
   Begin VB.Timer Timer1
      Interval        =   50
      Left            =   120
      Top             =   360
   End
   Begin VB.Label Label2
      BackColor       =   &H00FFFFFF&
      Caption         =   "Masta Sky"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   7.8
         Charset         =   0
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   252
      Left            =   2160
      TabIndex        =   1
      Top             =   4320
      Width           =   1452
   End
   Begin VB.Label Label1
      Alignment       =   1  'Rechts
      BackColor       =   &H00FFFFFF&
      Caption         =   "1998 by "
      Height          =   252
      Left            =   600
      TabIndex        =   0
      Top             =   4320
      Width           =   1452
   End
   Begin VB.Image Image10
      Height          =   612
      Left            =   480
      Picture         =   "Form1.frx":0442
      Stretch         =   -1  'True
      Top             =   120
      Width           =   3372
   End
   Begin VB.Image Image9
      Height          =   1092
      Left            =   2760
      Top             =   3120
      Width           =   1092
   End
   Begin VB.Image Image8
      Height          =   1212
      Left            =   2760
      Top             =   1920
      Width           =   1092
   End
   Begin VB.Image Image7
      Height          =   1092
      Left            =   2760
      Top             =   840
      Width           =   1092
   End
   Begin VB.Image Image6
      Height          =   1092
      Left            =   1560
      Top             =   3120
      Width           =   1212
   End
   Begin VB.Image Image5
      Height          =   1212
      Left            =   1560
      Top             =   1920
      Width           =   1212
   End
   Begin VB.Image Image4
      Height          =   1092
      Left            =   1560
      Top             =   840
      Width           =   1212
   End
   Begin VB.Image Image3
      Height          =   1092
      Left            =   480
      Top             =   3120
      Width           =   1092
   End
   Begin VB.Image Image2
      Height          =   1212
      Left            =   480
      Top             =   1920
      Width           =   1092
   End
   Begin VB.Image Image1
      Height          =   1092
      Left            =   480
      Top             =   840
      Width           =   1092
   End
   Begin VB.Image O9
      Height          =   840
      Left            =   2880
      Picture         =   "Form1.frx":0EE2
      Stretch         =   -1  'True
      Top             =   3240
      Width           =   840
   End
   Begin VB.Image O8
      Height          =   960
      Left            =   2880
      Picture         =   "Form1.frx":16AF
      Stretch         =   -1  'True
      Top             =   2040
      Width           =   840
   End
   Begin VB.Image O7
      Height          =   840
      Left            =   2880
      Picture         =   "Form1.frx":1E7C
      Stretch         =   -1  'True
      Top             =   960
      Width           =   840
   End
   Begin VB.Image O6
      Height          =   840
      Left            =   1680
      Picture         =   "Form1.frx":2649
      Stretch         =   -1  'True
      Top             =   3240
      Width           =   960
   End
   Begin VB.Image O5
      Height          =   960
      Left            =   1680
      Picture         =   "Form1.frx":2E16
      Stretch         =   -1  'True
      Top             =   2040
      Width           =   960
   End
   Begin VB.Image O4
      Height          =   840
      Left            =   1680
      Picture         =   "Form1.frx":35E3
      Stretch         =   -1  'True
      Top             =   960
      Width           =   960
   End
   Begin VB.Image O2
      Height          =   960
      Left            =   600
      Picture         =   "Form1.frx":3DB0
      Stretch         =   -1  'True
      Top             =   2040
      Width           =   840
   End
   Begin VB.Image O3
      Height          =   840
      Left            =   600
      Picture         =   "Form1.frx":457D
      Stretch         =   -1  'True
      Top             =   3240
      Width           =   840
   End
   Begin VB.Image O1
      Height          =   840
      Left            =   600
      Picture         =   "Form1.frx":4D4A
      Stretch         =   -1  'True
      Top             =   960
      Width           =   840
   End
   Begin VB.Image X6
      Height          =   852
      Left            =   1680
      Picture         =   "Form1.frx":5517
      Stretch         =   -1  'True
      Top             =   3240
      Width           =   972
   End
   Begin VB.Image X9
      Height          =   852
      Left            =   2880
      Picture         =   "Form1.frx":5D2A
      Stretch         =   -1  'True
      Top             =   3240
      Width           =   852
   End
   Begin VB.Image X3
      Height          =   852
      Left            =   600
      Picture         =   "Form1.frx":653D
      Stretch         =   -1  'True
      Top